perm filename SAITRG[SYS,HE]1 blob
sn#004242 filedate 1972-06-17 generic text, type T, neo UTF8
00100 REQUIRE "SAITRG[SYS,HE]" LOAD_MODULE;
00200 EXTERNAL REAL SIMPLE PROCEDURE SIN (REAL X);
00300 EXTERNAL REAL SIMPLE PROCEDURE COS (REAL X);
00400 EXTERNAL REAL SIMPLE PROCEDURE SIND (REAL I);
00500 EXTERNAL REAL SIMPLE PROCEDURE COSD (REAL I);
00600 EXTERNAL REAL SIMPLE PROCEDURE ASIN (REAL X);
00700 EXTERNAL REAL SIMPLE PROCEDURE ACOS (REAL X);
00800 EXTERNAL REAL SIMPLE PROCEDURE SQRT (REAL X);
00900 EXTERNAL REAL SIMPLE PROCEDURE ATAN (REAL X);
01000 EXTERNAL REAL SIMPLE PROCEDURE ATAN2 (REAL Y,X);